object DMNazwy: TDMNazwy
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Height = 245
  Width = 373
  object ADQNazwyPodmiotow: TADQuery
    SQL.Strings = (
      'select P.idPodmiotu, P.chNazwa, M.chPublikator, M.idMetryki'
      'from Podmioty P'
      'inner join Metryki M on P.idPodmiotu = M.idPodmiotu'
      'where M.idMetryki = :id')
    Left = 56
    Top = 16
    ParamData = <
      item
        Name = 'ID'
        ParamType = ptInput
      end>
  end
  object ADQNazwaPoprzednia: TADQuery
    SQL.Strings = (
      'select P.chNazwa'
      'from Metryki M'
      'inner join Podmioty P on P.idPodmiotu = M.idPodmiotu'
      
        'where (M.dtDataWpisu < :data or (M.dtDataWpisu = :data and M.chP' +
        'ublikator16 < :pub))'
      '  and M.inKRS = :krs'
      '  and M.chPublikator like '#39'M.SiGKRS%'#39
      'order by M.dtDataWpisu desc')
    Left = 56
    Top = 80
    ParamData = <
      item
        Name = 'DATA'
        ParamType = ptInput
      end
      item
        Name = 'DATA'
        ParamType = ptInput
      end
      item
        Name = 'PUB'
        ParamType = ptInput
      end
      item
        Name = 'KRS'
        ParamType = ptInput
      end>
  end
  object ADQUsunNazwe: TADQuery
    SQL.Strings = (
      'update Metryki '
      'set idPodmiotu = null'
      ' where idMetryki = :id')
    Left = 176
    Top = 16
    ParamData = <
      item
        Name = 'ID'
        ParamType = ptInput
      end>
  end
  object ADQZmienNazwe: TADQuery
    Left = 168
    Top = 88
  end
end
